﻿Imports System.Data
Imports System.Data.OleDb



Module Modulo_Maestro
    Dim SQl As String
    Dim cnn As New OleDb.OleDbConnection

 


    Sub SQL_Formulario_Mantenedor_Usuario_Llenar_DataGridView1()
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Ltrujillo\Desktop\my-proyect-aurora\Base_Datos.accdb;Persist Security Info=False"



        Dim da As New OleDbDataAdapter("SELECT * FROM Tabla_Usuarios", cnn)

        Dim ds As New DataSet

        da.Fill(ds)

        Formulario_Mantenedor_Usuario.DataGridView1.DataSource = ds.Tables(0)

    End Sub








End Module
